home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pasclern.zip / WHILELP.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  281b  |  14 lines
  1. PROGRAM while_loop_example;
  2.  
  3. VAR counter : INTEGER;
  4.  
  5. BEGIN
  6.   counter := 4;
  7.   WHILE counter < 20 DO
  8.   BEGIN
  9.     WRITE('We are in the WHILE loop, waiting ');
  10.     WRITE('for the counter to reach 20. It is',counter:4);
  11.     WRITELN;
  12.     counter := counter + 2;
  13.   END;
  14. END.